Revista CD Expert 37/CD Expert nº 37.iso/LastCall/lastcall.exe/stuff/lastcall.dxr/00161_Mode routines.ls

Text File | 2000-03-27 | 1.8 KB | 70 lines

on startMainBarMode newMode
  global gPourableItemsList, gMode, gBarGlassSprites
  gPourableItemsList = [49, 51, 53, 81, 85, 89]
  repeat with X in gBarGlassSprites
    add(gPourableItemsList, X)
  end repeat
  if not voidp(newMode) then
    gMode = newMode
  end if
end

on startBonusMode newMode
  global gPourableItemsList, gMode, gBonusStartTime, gPauseTime, gRightAnswers, gWrongAnswers, gSoundTrack, gGameLevel
  gRightAnswers = 0
  gWrongAnswers = 0
  gPauseTime = 0
  if not voidp(newMode) then
    gMode = newMode
  end if
  gPourableItemsList = [49, 51, 53, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20]
  gSoundTrack = getAt(["BRM_A02", "BRM_A01"], (gGameLevel mod 2) + 1)
  gBonusStartTime = now()
end

on move_dummy whichWindow, newRect
  global gDragRect, gPauseState, gActiveWindow
  gActiveWindow = whichWindow
  sprite(gDragRect).rect = offset(newRect, -(the stageLeft), -(the stageTop))
  updateStage()
end

on dropDraggingWindow
  if the activeWindow = the stage then
    drop_window()
  else
    tell the stage
      drop_window()
    end tell
  end if
end

on drop_window whichWindow, newRect
  global gPauseState, gActiveWindow, gDragRect, gRecipeWindow
  if voidp(whichWindow) then
    whichWindow = gActiveWindow
  end if
  gActiveWindow = the stage
  if not isWindow(whichWindow) then
    exit
  end if
  if whichWindow = the stage then
    exit
  else
    if isVisible(whichWindow) then
      if not voidp(newRect) then
        whichWindow.rect = newRect
        rememberWindowRects()
      end if
      if whichWindow = gRecipeWindow then
        patron = findActiveRecipeSlot()
        newLabel = "current" & patron
        if not recipeWindowAtLabel(newLabel) then
          refreshRecipes(patron)
        end if
      end if
    end if
  end if
  hideDragRect()
end